perm filename M2TEST[2,TES] blob sn#035511 filedate 1973-04-12 generic text, type T, neo UTF8
00100	EXPR TEST();
00200		BEGIN
00300		NEW X ;
00400		PRINTSTR("X = ") ; PRINT(X ← '((A B C) (D E) NIL (F))) ;
00500		PRINTSTR("COLLECT = ") ; PRINT FOR NEW Y IN X COLLECT Y ;
00600		PRINTSTR("X = ") ; PRINT(X) ;
00700		END ;
00800	
00900	
01000	_EOF_